home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / inptmthd.sit / Input Methods / card_6857.txt < prev    next >
Text File  |  1989-11-24  |  10KB  |  475 lines
  1. -- card: 6857 from stack: in
  2. -- bmap block id: 7046
  3. -- flags: 0000
  4. -- background id: 2696
  5. -- name: Menus
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   lock screen
  9.   repeat with b = 1 to 4
  10.     set name of button b to empty
  11.     hide card button (b + 4)
  12.   end repeat
  13.   pass closeCard
  14. end closeCard
  15.  
  16.  
  17. -- Thanks to Andrew Gilmartin of Brown University
  18. -- for the popUpMenu XFCN.
  19.  
  20. -- Pop-up menu next to the button
  21. -- Sets the button name to the item chosen.
  22. -- If nothing chosen, gives feedback explaining how to use pop-up menu
  23. on itemMenu list
  24.   get popUpMenu(list,0,left of card window + right of target, top of card window + top of target)
  25.   if it is not empty then
  26.     set the name of target to item it of list
  27.   else
  28.     answer "Hold the mouse button down, drag it over one of the " & "choices in the list, then let go." with "Oh, I see"
  29.   end if
  30. end itemMenu
  31.  
  32.  
  33.  
  34.  
  35.  
  36. -- part 1 (button)
  37. -- low flags: 00
  38. -- high flags: A004
  39. -- rect: left=112 top=128 right=147 bottom=191
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48. ----- HyperTalk script -----
  49. on mouseDown
  50.   itemMenu "acicular,oblong,orbicular,rhomboid,spatulate,ovate"
  51. end mouseDown
  52.  
  53.  
  54.  
  55. -- part 2 (field)
  56. -- low flags: 01
  57. -- high flags: 0000
  58. -- rect: left=61 top=129 right=147 bottom=111
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 65535
  62. -- font id: 3
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: 
  67.  
  68.  
  69. -- part 3 (field)
  70. -- low flags: 01
  71. -- high flags: 0000
  72. -- rect: left=20 top=155 right=173 bottom=111
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 65535
  76. -- font id: 3
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 
  81.  
  82.  
  83. -- part 4 (field)
  84. -- low flags: 01
  85. -- high flags: 0000
  86. -- rect: left=68 top=181 right=199 bottom=111
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 65535
  90. -- font id: 3
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: 
  95.  
  96.  
  97. -- part 5 (field)
  98. -- low flags: 01
  99. -- high flags: 0000
  100. -- rect: left=38 top=207 right=225 bottom=111
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 65535
  104. -- font id: 3
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: 
  109.  
  110.  
  111. -- part 6 (button)
  112. -- low flags: 00
  113. -- high flags: A004
  114. -- rect: left=112 top=154 right=173 bottom=191
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: 
  123. ----- HyperTalk script -----
  124. on mouseDown
  125.   itemMenu "opposite,alternate"
  126. end mouseDown
  127.  
  128.  
  129.  
  130. -- part 7 (button)
  131. -- low flags: 00
  132. -- high flags: A004
  133. -- rect: left=112 top=180 right=199 bottom=191
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: 
  142. ----- HyperTalk script -----
  143. on mouseDown
  144.   itemMenu "simple,compound"
  145. end mouseDown
  146.  
  147.  
  148.  
  149. -- part 8 (button)
  150. -- low flags: 00
  151. -- high flags: A004
  152. -- rect: left=112 top=206 right=225 bottom=191
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: 
  161. ----- HyperTalk script -----
  162. on mouseDown
  163.   itemMenu "parallel,palmate,arcuate,pinnate"
  164. end mouseDown
  165.  
  166.  
  167.  
  168. -- part 9 (field)
  169. -- low flags: 01
  170. -- high flags: 0000
  171. -- rect: left=42 top=61 right=110 bottom=208
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: 
  180.  
  181.  
  182. -- part 10 (field)
  183. -- low flags: 01
  184. -- high flags: 0000
  185. -- rect: left=126 top=93 right=111 bottom=222
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 0
  189. -- font id: 3
  190. -- text size: 12
  191. -- style flags: 256
  192. -- line height: 16
  193. -- part name: 
  194.  
  195.  
  196. -- part 12 (field)
  197. -- low flags: 81
  198. -- high flags: 0000
  199. -- rect: left=379 top=74 right=141 bottom=495
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 0
  203. -- font id: 3
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Answer
  208.  
  209.  
  210. -- part 13 (button)
  211. -- low flags: 80
  212. -- high flags: 0000
  213. -- rect: left=197 top=128 right=148 bottom=217
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 21653 / 21653
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: 
  222.  
  223.  
  224. -- part 14 (button)
  225. -- low flags: 80
  226. -- high flags: 0000
  227. -- rect: left=197 top=154 right=174 bottom=217
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 21653 / 21653
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: 
  236.  
  237.  
  238. -- part 15 (button)
  239. -- low flags: 80
  240. -- high flags: 0000
  241. -- rect: left=197 top=180 right=200 bottom=217
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 21653 / 21653
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: 
  250.  
  251.  
  252. -- part 16 (button)
  253. -- low flags: 80
  254. -- high flags: 0000
  255. -- rect: left=197 top=206 right=226 bottom=217
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 21653 / 21653
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: 
  264.  
  265.  
  266. -- part 11 (button)
  267. -- low flags: 00
  268. -- high flags: A003
  269. -- rect: left=48 top=256 right=278 bottom=192
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 1
  273. -- font id: 0
  274. -- text size: 12
  275. -- style flags: 0
  276. -- line height: 16
  277. -- part name: Check My Answer
  278. ----- HyperTalk script -----
  279. on mouseUp
  280.   put 0 into numRight
  281.   repeat with n = 1 to 4
  282.     if the short name of button n = line n of card field "answer" then
  283.       set the icon of button (n+4) to "Smiley"
  284.       add 1 to numRight
  285.     else
  286.       set the icon of button (n+4) to "Frowney"
  287.     end if
  288.     show button (n+4)
  289.   end repeat
  290.   if numRight = 4 then rightSound
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 17 (field)
  296. -- low flags: 01
  297. -- high flags: 0007
  298. -- rect: left=347 top=198 right=312 bottom=501
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 0
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: 
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   select line clickLine() of me
  310.   if the selection is "mouseInHouse" or the selection is "mouseTrap"
  311.   then rightSound
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 18 (field)
  317. -- low flags: 01
  318. -- high flags: 0004
  319. -- rect: left=393 top=64 right=164 bottom=483
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 0
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: 
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   select line clickLine() of me
  331.   if the selection is "il naquit" then rightSound
  332.   else wrongSound
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 19 (field)
  338. -- low flags: 01
  339. -- high flags: 0000
  340. -- rect: left=254 top=76 right=113 bottom=380
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 0
  344. -- font id: 3
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: 
  349.  
  350.  
  351. -- part 20 (field)
  352. -- low flags: 01
  353. -- high flags: 0000
  354. -- rect: left=242 top=198 right=264 bottom=342
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 0 / 0
  357. -- text alignment: 0
  358. -- font id: 3
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: 
  363.  
  364.  
  365. -- part 21 (field)
  366. -- low flags: 81
  367. -- high flags: 2004
  368. -- rect: left=89 top=125 right=280 bottom=357
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 0
  372. -- font id: 3
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: Info
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.   info
  380. end mouseUp
  381.  
  382.  
  383. -- part 22 (button)
  384. -- low flags: 00
  385. -- high flags: 2001
  386. -- rect: left=490 top=320 right=342 bottom=512
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 26635 / 26635
  389. -- text alignment: 1
  390. -- font id: 0
  391. -- text size: 12
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: 
  395. ----- HyperTalk script -----
  396. on mouseUp
  397.   info
  398. end mouseUp
  399.  
  400.  
  401.  
  402. -- part contents for card part 2
  403. ----- text -----
  404. Shape:
  405.  
  406. -- part contents for card part 3
  407. ----- text -----
  408. Arrangement:
  409.  
  410. -- part contents for card part 4
  411. ----- text -----
  412. Type:
  413.  
  414. -- part contents for card part 5
  415. ----- text -----
  416. Venation:
  417.  
  418. -- part contents for card part 9
  419. ----- text -----
  420. Choose the identifying characteristics of the leaves of the
  421.  
  422. -- part contents for card part 10
  423. ----- text -----
  424. Box Elder.
  425.  
  426. -- part contents for card part 12
  427. ----- text -----
  428. ovate
  429. alternate
  430. simple
  431. pinnate
  432.  
  433.  
  434. -- part contents for card part 17
  435. ----- text -----
  436. mouse
  437. mouseUp
  438. mouseDown
  439. mouseStillDown
  440. mouseEnter
  441. mouseLeave
  442. mouseWithin
  443. mouseInHouse
  444. mouseClick
  445. mouseV
  446. mouseH
  447. mouseTrap
  448. mouseLoc
  449.  
  450.  
  451. -- part contents for card part 18
  452. ----- text -----
  453. il na├«t
  454. il naissant
  455. il naquit
  456. il na├«tra
  457. il est n├⌐
  458. il sera n├⌐
  459.  
  460.  
  461. -- part contents for card part 19
  462. ----- text -----
  463. Choose the correct conjugation:
  464.  
  465.  
  466. -- part contents for card part 20
  467. ----- text -----
  468. Which are not real HyperTalk messages or functions?
  469.  
  470. -- part contents for card part 21
  471. ----- text -----
  472. Multi-part feedback allows the user to concentrate only on the parts he missed.
  473.  
  474. Notice that an explanation is given if the user doesn't select an item after activating a pop-up menu.  This is VERY important for novice users (and helpful for not-so-novice users who might just click and not notice the pop-up menu). 
  475.